home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 August / Software of the Month Club 1996 August.iso / pc / os2 / famtree / install.cmd < prev    next >
Encoding:
Text File  |  1996-05-21  |  1.0 KB  |  32 lines
  1. /* FamilyTree installation */
  2. SAY 'FamilyTree Installation'
  3. SAY
  4. SAY '      (d)eutsch (e)nglish ?'
  5.  
  6. CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  7. CALL SysLoadFuncs
  8.  
  9. language=SysGetKey(NOECHO)
  10. PARSE UPPER VAR language language
  11. SAY
  12.  
  13. IF language='D' THEN DO
  14.    SAY 'Erzeuge Onlinehilfe !'
  15.    '@copy German.hlp FTree.hlp >nul'
  16.    SAY 'Erzeuge Sprachresource !'
  17.    '@copy German.dll FTree.dll >nul'
  18.    SAY 'Erzeuge Programmobjekt !'
  19.    IF 0=SysCreateObject("WPProgram","Family Tree 1.0f","<WP_DESKTOP>","EXENAME="||DIRECTORY()||"\ftree.exe;OBJECTID=<FTREE>",replace)
  20.       THEN SAY '*** Fehler beim Erzeugen des Programmobjektes!'
  21.    END
  22. ELSE DO
  23.    SAY 'Creating online-help !'
  24.    '@copy English.hlp FTree.hlp >nul'
  25.    SAY 'Creating language-resource !'
  26.    '@copy English.dll FTree.dll >nul'
  27.    SAY 'Creating program object !'
  28.    IF 0=SysCreateObject("WPProgram","Family Tree 1.0f","<WP_DESKTOP>","EXENAME="||DIRECTORY()||"\ftree.exe;OBJECTID=<FTREE>",replace)
  29.       THEN SAY '*** Error creating program object !'
  30.    END
  31.  
  32.